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1.0 Syntax Extensions 

This section describes extensions to 
Pascal which are of general utility. 


the formal structure of 


1•1 Program heading 

The program heading is optional in OMSI Pascal-1 programs! and it 
may be omitted entirely. If the program heading appears* the 
program name will be printed on each page of the program listing. 
The first six characters of the name will be used as the external 
name of the object module. Parameters appearing in the program 
heading are ignored. 


1.2 Declaration ordering 

The ordering of global declaration sections (CONST* 
LABEL) is extended in OMSI Pascal-1. Declaration 
appear more than once and in any order* so long 
defined before being used. 


TYPE* VAR* 
sections may 
as identifiers are 


One application of this is the concatenation of source 
with main programs which provides a primitive source 
capability. 

Example - compiler input PLQT*MAIN* 

(.* define source module PLOT *) 

VAR ... <* global plotter variables *> 

PROCEDURE C* and plotter functions *) 

PROCEDURE ... 

(* end of plotter module *) 

(* program file MAIN *) 

VAR ... <* global variables *) 

BEGIN (* main program code *) END. 


modules 
1ibrary 


1.3 Comment brackets 


OMSI Pascal—1 provides three forms of comment 
Standard braces -C...>* the Standard alternate 
terminals (*...*>» and the additional form /*...#/ 
interchanged freely - it is not necessary 
comment brackets to have the same form, 
nested. 


brackets: the 

for upper-case 
These may be 
for opening and closing 
Comments may not be 


* 
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Examples > 

(* This is a valid comment */ 

{ This is <* not *) a valid comment > 


1.4 ELSE clause in CASE statements 

OMSI Pascal-1 allows an optional ELSE clause to appear in a CASE 
statement. It indicates a statement which is to be executed if 
the CASE selector expression does not match the value of any CASE 
label. If includedi the ELSE clause follows all other statements 
inside the CASE statement. If no ELSE clause appears and no 
statement is selected* control passes to the statement following 
the CASE statement. 


Examples 

repeat 

Readln(Ch)i 
case Ch of 

* A’ i* a’* Append I 
*D’i’d’s Delete! 

*l* »* i* » Insert! 

*N* *’ n’ : Newf ile! 

’Q’i’q’s » 

else WritelnC»Ch*’" is not a legal command*)* 
end 1 

until (Ch « ’Q') or (Ch - ’q*)! 


1.5 EXIT statement 

The EXIT statement terminates the immediately enclosing iterative 
statement (WHILE* REPEAT* FOR). 

The EXIT statement is included for compatibility with previous 
versions of OMSI Pascal-1. Its use is not recommended in programs 
intended to be portable. 

Example (table search): 

/ 

Found s* False* 
for I s» 1 to Tablesize do 
if TableCI3=Key 
then begin 

Found »* True* 
exit! 

end! 


I 
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1.6 EXTERNAL Procedures and Functions 

The keyword EXTERNAL provides access to separately compiled 
subroutines and to program libraries and overlay facilities. 
EXTERNAL appears in the place of a procedure or function body to 
indicate that the procedure or function is compiled separately. 

The compiler will generate references to an external (global) 
symbol. The first six characters of the procedure or function 
identifier must form a unique external symbol. References to an 
external procedure or function are resolved #t link or task build 
time. 

Note that the compiler is unable to check parameter types at an 
external interface. 

Examples: 

procedure Erase! external! 

function Rad50CA»B*C* char): Unsigned! external! 


1.7 FORTRAN Procedures and Functions 

The directive ’FORTRAN’ is similiar to the EXTERNAL directive. 
The compiler will generate a calling sequence corresponding to the 
Digital PDP-11 standard calling sequence* with register 5 CR5) 
pointing to an argument list. The FORTRAN directive enables 
calling of external MACRO and FORTRAN subroutines. The FORTRAN 
calling sequence passes parameters by reference* so the 
corresponding Pascal parameters must be declared as VAR 
parameters. 

The FORTRAN directive generates the proper call sequence for 
FORTRAN subroutines. It does not provide for initialization of 
the FORTRAN runtime I/O system. 

Example: 


function Difference*.var X»Y: Real)* Real! fortran! 
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2.0 Low-Level Interface 

The low-level interface section describes those OMSI Pascal-1 
extensions which are useful to programmers who need access to 
machine dependent PDP-11 characteristics. 


2.1 Octal (Base 8) Numbers 

Integer constants may be written in octal notation by appending 
the capital letter *B* to the number. This applies only to 
compile-time constants -- runtime integer conversions via ReadO 
are performed using decimal notation. 

Examples const TabCode « UBI C* ASCII tab character a) 


2.2 Unsigned Integers 

The predefined type Integer has the subrange (-32768 .. 32767) and 
uses the PDP-11 signed arithmetic operations. Unsigned integers 
may be specified with the subrange 0..65535. The compiler will 
generate the unsigned comparison operations of the PDP-11 and will 
not detect multiplication and division overflow of unsigned 
integers. 

Unsigned integer operations apply only to integer calculations. 
I/O conversions and conversions to and from Real values are always 
signed integer operations. 

Example! type Unsigned»0..655351 


2.3 Logical operations on Integers 

The Boolean operators AND* OR* and NOT are extended to Integer 
operands. The operators perform the Boolean operations on all 16 
bits of their operands. This allows testing or setting of 
individual bits within a word (for instance* status bits within a 
device register). 

Example! Byte Qrd(Ch) and 377B? 


2.4 References to fixed (absolute) memory 

OMSI Pascal-1 allows the keyword ORIGIN to appear in variable 
declarations* associating a variable identifier with a specific 
memory address. This provides access to fixed memory addresses* 
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such as device control registers or operating system parameter 
blocks. 

Example (read directly from the RT11 console)i 
const Ready«200B? 

var KbCsr origin 177560B* KbBuff origin 177562B! Integer? 

Ch* Char? 

begin 

while (KbCsr and Ready)**) do (* nothing *)? 

Ch i* Chr(KbBuff)? (* get character *> 

end ? 


2.5 Address operator (8) 


OMSI Pascal-1 provides a unary address operator! indicated by the 
a character. When applied to a variable of type T* it yields a 
value of type tT (painter to T). The address operator can be used 
to link variables into list structures or (more commonly) to pass 
variable addresses to low-level routines. 


Example! 


var Buffer! Block? XRLoc origin 446B! SBlock? 
begin 

XRLoci* BBuffer? (* pass address to RSTS/E a) 

end 


2.6 Embedded assembly code 

PDP-11 MACRO assembly code may appear at any point in an OMSI 
Pascal-1 program. Assembly code sections have the form of a 
Pascal comment* beginning with the SC embedded switch. Any 
MACRO-11 feature may be used within embedded code. The compiler 
provides some assistance in accessing Pascal variables* though the 
programmer is expected to have some understanding of the OMSI 
Pascal-1 runtime environment. Note that the default radix within 
a Pascal-produced MACRO file is decimal* not octal. 


Example! 

procedure EmtTrapCN:Integer)? 
begin 
(*SC 

MOV N(SP)*-(SP) ? push parameter N 

EMT 53 ? call EMT handier 

#> 

end (*EmtTrap*)? 
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3.0 I/O Support Extensions 

I/O support extensions provide the OMSI Pascal—1 programmer with 
additional control of the interface to the operating system. 


3.1 ResetO/RewriteO optional parameters 

Three additional parameters may appear following the file variable 
in calls to the ResetO and RewriteO standard procedures. These 
optional parameters allow the program to dynamically bind a file 
variable to an external file and provide status and error 
informat ion. 

The general form is* 

Reset< F » Filename » DefaultName * Size > 
where the parameters have these types! 

F - any file variable 

Filename - literal string* or (packed) array of Char 
DefaultName - same as Filename 
Size - Integer variable 

Reset(F *Filename) connects the file variable F with the external 
file identified by Filename. Filename conforms to the operating 
system conventions* and may contain device* filename* extension* 
and other fields such as PPN/UIC and version number. The Filename 
parameter may also contain switches specifying access modes or 
other special characteristics. If the external file does not 
exist prior to the Reset()* a fatal error will result. Upon 
sucessful completion of a ResetO» either the file buffer Ft will 
contain the first element of the file* or EofCF) will be True. 

Reset <F*Filename»DefaultName) performs the same function* with 
DefaultName having the same format as Filename. Fields of the 
external name which are not specified in Filename are filled from 
the information in DefaultName. Common default fields are the 
extension* protection code* and mode switches. 

Reset (F*Fi le na me*DefaultName*Size) provides a recovery capability 
on file open errors. Size must be a variable (VAR parameter). 
After a succcessful ResetO* Size contains the length of the file 
in blocks. If an error occurs* Size is set to negative one (-1). 

Rewrite( F * Filename » DefaultName * Size ) 

RewriteO creates a new external file. The optional parameters 
have the same meaning as in ResetO with one addition' Size 
specifies the initial storage* in blocks* to be allocated for the 
file. 
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Reset() and RewriteO may be applied to the standard files Input 
and Output respectively. This will redirect the default input or 
output streams to the specified file instead of the user terminal. 
A subsequent CloseC) will break the connection and reconnect the 
default file to the terminal. 

Examples 

program Copyl (* copy to printer *) 
var Names array Cl..203 of Chart 
Ch* Chari Lens Integer! 
begin 

repeat (* Get a Filename and ResetC) it *) 

Writer File* *)! 

Read In(Name)I 

Reset(Input*Name*’.PAS’*len> 
until Len <> -II (* until not error code #) 

Rewrite(Output *’LP*’)I (* redirect output to printer *> 

while not Eof do begin (* copy Input to Output *> 
while not Eoln do begin 
Read(Ch)I Write(Ch)! 
end I 

Readlnl Writelnl 
end I , 

end. 


3.2 SeekO procedure 

The predefined procedure SeekO causes direct positioning of a 
file window variable to any desired component of the file. 

Seek( F * Index ) 

F may be of any file type except Text* and must be connected to an 
external file which supports direct access (typically disk or 
DECtape). Index is an unsigned integer expression which specifies 
the desired component. File components are numbered sequentially 
beginning with one (1). If Index specifies a number greater than 
the number of components actually present* then Eof(F) is set to 
T rue. 

To read component N of file F* use* 

Seek(F*N)l (* component N is available in Ft *> 

To write component N* use the sequence* 

Seek(F*N)l (* position to component N *) 

Ft s*» ()! (* assign new value *) 

Put(F)I (* write component to file #) 
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If the PutO in the above sequence is omitted* the effects will be 
unpredictable and the new data may be last. 

Sequential I/O operations such as Get<) and Putt) may be mixed 
with Seek() and will advance the file window to the next 
component. Reset<F> is equivalent to Seek(F*l>. 

The direct access extension bypasses the Standard Pascal 
restriction prohibiting simultaneous read and write access to a 
file. For this reason* direct access files are identified by the 
’/Seek* switch which must appear in the Filename or DefaultName 
field of the associated ResetO or RewriteO. 


3.3 BreakO procedure 

For efficiency* OMSI Pascal-1 buffers transmitted data. Break(F) 
forces the actual transmission of data from a partially filled 
buffer of file F. This can be useful with interactive terminals* 
or to guarantee actual transmission of data to a shared disk file. 


3.4 Closet) procedure 

Close(F) indicates that the program has completed processing the 
file F* and that internal buffer storage may be reclaimed. 
Close(F) removes any connection to an external file* so that 
Reset(F> or Rewrite(F) must precede any subsequent operations with 
that file variable. 


3.5 ReadlnO Array of Char 

ReadO and ReadlnO will read characters from a Text file into a 
(packed) array of characters. Reading begins at the current file 
position and continues until either the array is filled* or EolnO 
is True* in which case the remainder of the array is filled with 
blanks. 


3.6 WriteO Array of Char 

In accordance with the draft proposed ISO Standard* a WriteC) 
procedure call applied to an array of Char will truncate the 
written string if the field width parameter will not allow the 
entire string to be written. 
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Examples 

Write (Buffe rs BuffCount)i (* write buffered characters *> 


3.7 WriteO Octal (Base 8) 

WriteO will write integers in octal notation if the field width 
specification is negative. 

Examples Write(I*-5>! (* Display octal value of I *> 


3.8 Interactive I/O 

The Pascal Standard requires that the first element of a fl }° 
available as soon as the file is ResetO (the buffer variable Ft 
is assigned a value immediately). This can present 
difficulties when applied to files which are *? taP *°** 
terminals. For example, if the default input file is the user s 
terminal* the standard can be interpreted to require that the use 
type the first input character (or line) prior to the execution o 
the first program statement. 

OMSI Pascal-1 takes the following route around the problem. When 
an interactive file is ResetO, the buffer variable is set to a 
space and Eoln(F) is set to False, but no actual I/O transmission 
occurs. Each ReadO request then waits for sufficient data to 
satisfy the request, but no more. 

This solves most of the problems with interactive terminals in a 
predictable manner, but one should note that this approach creates 
other difficulties. When applied to an interactive file, the 
following program is unable to distinguish between an empty lin* 
and a line containing a single space. This is because EolnO 
cannot be set until the end of line character is typed to satisfy 
the ReadO request. 


Examples (the standard schema for reading a line of characters) 

var Line* array Cl..723 of Chart 
Count* Integer! 
begin 

Count *» 0! 

while not Eoln do begin 
Count *“ Count*1i 
Read(LineCCountD) I 
end t 
Readlnt 
end t 
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4.0 Additional Predefined Functions 

□MSI Pascal-1 provides some additional built-in functions. 


4.1 Time function 

The Time function takes no parameters and returns a real value 
which corresponds to the current time of day. The Time is 
represented in hours after midnight! so that 9*30 AM is 9.50 and 
1*45 PM is 13.75. The exact resolution of the Time function is 
dependent on the operating system! but all operating systems 
provide a resolution of at least one second. 

Example* 

procedure UriteTime? 
var Hrs! Mins* Integer? 

AmPm* arrayC1..23 of Char? 
begin 

Mins *= Round(Time*60)? 

Hrs *« Mins div 60? 

Mins ** Mins mad 60? 
if (Hrs < 12) 

then AmPm **= ’AM’ 
else if (Hrs * 12) and (Mins =» 0) 
then AmPm ** ’M * 
else AmPm *= ’PM’? 

Write(’At the tone the time will be* ’)? 

Write(((Hrs+11) mod 12 + 1>*2)? 

Write(* *»! Mins div 10*li Mins mod 10*l! AmPm*3)? 
Writeln(Chr(7))? 
end ? 

“At the tone the time will be* 11*56 AM" 


4.2 ExplOO and Log() functions 

The ExplOO and LogO functions are similiar to the standard ExpO 
and Ln() functions! but with a logarithm base of ten (10). 
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5*0 Non-Standard Language Elements 

This section describes the elements of OMSI Pascal—1 which do not 
conform to the accepted definition of Standard Pascal. 


5.1 PackO and UnpackO not available 

The reserved word PACKED may appear in type definitions* but it 
has no meaning in OMSI Pascal-1 programs. Packed types require 
the same amount of storage as unpacked types. The standard 
procedures PackO and Unpack!) are not available. The following 
equivalent FOR statements can be used instead! 

var Ai arrayCM..N3 of T? 

Z! packed arrayCP..Q3 of T* 
for J*“ P to Q do ZCJ3 s* ACJ-P+I35 i Pack(A»I»Z) > 
for Js* P to Q do ACJ-P+I3 *= ZCJli •£ Unpack!Z»A*I) > 


5.2 Program Parameters 

Program parameters ([identifiers appearing in the program heading) 
have no meaning in OMSI Pascal-1 programs. The program heading 
may be omitted entirely if desired. External files can be 
declared by using the Reset!) and Rewrite!) procedures with 
optional parameters. 


5.3 Identifier Scope Rules 

In Standard Pascal* the scope of an identifier !that section of 
the program within which the identifier indicates a particular 
object) is directly related to the block structure. A definition 
of an identifier in a procedure* for example* prohibits that 
identifier from indicating another object throughout the entire 
procedure. 

OMSI Pascal-1 uses a subtly different rule for the scope of an 
identifier* called ’one-pass’ scope* in which a definition of an 
identifier prohibits only subsequent uses of the identifier within 
the block from indicating an object outside the block. 

The non-standard scope rule is described here for completeness* 
but it is of little concern to the programmer. Indeed* the 
majority of Pascal compilers use the identical lincorrect) rule. 
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5 • 4 ReadO/MriteO Tent files only 

In the 1978 printing of the Pa scal U&fil Manual ^ 8f.Bfl.Efc* th ® 
ReadO and WriteO standard procedures were extended to apply to 
all file types. This extension has not yet been incorporated into 
OMSI Pascal-1» so that ReadO and WriteO are applicable only to 
files of the standard type Text. 

The following substitions may be used: 

For Read(F*V)* use* V*»Ftf Get(FM 

For WritetF*V)* use* Ff»*V5 Put(F)l 

5.5 EofO not accurate (RT11» R8T3 only) 

On the RT11 and RSTS operating systemst a file is structured as a 
sequence of 512 byte blocks. No finer resolution is available as 
to the end of data in the last block. Therefore* the EofO 
standard function can not be relied upon as accurate* and another 
method (sentinel record* record count) should be used to indicate 
the end of usable data. 

Note that this problem does not apply to Text files* where EofO 
is identified correctly. 
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6.0 Implementation Definitions 

This section provides specific details and characteristics of 
implementation-defined elements of OMSI Pascal-1. 

6.1 Identifiers 


OMSI Pascal-1 permits identifiers to be of any length* 
characters are significant. Lower case letters may be 
are interpreted the same as upper case* so that "name"* 
and "NAME" are equivalent identifiers. 


and all 
used and 
"Name"* 


Due to limitations of the object program file structures* the 
first six characters of any EXTERNAL or FORTRAN identifier must 
form a unique external name. 


6.2 Standard type Integer 

The standard type Integer has the range (-32768..32767). Unsigned 
integers may be declared using the subrange notation 0..65535. 
Note that arithmetic overflow is detected only for multiplication 
and division of signed integers. 

The predefined identifier Maxint has the value 32767. 


6.3 Standard type Real 

Real variables have the standard PDP-11 single or double precision 
floating point structure* with the range IE-38 .. 1E+38. Single 
precision values give 7 decimal digit precisioni extended (double 
precision) values give 15 digit precision. Arithmetic overflow is 
detected for all real operations* but underflow is ignored and 
gives a result of zero. 

The standard transcendentai routines are accurate to 6 decimal 
digits in single precision* and 15 decimal digits in extended 
precision. 


6.4 Standard type Char 

QMSI Pascal-1 uses the 7-bit full ASCII character set. Characters 
are stored as signed bytes with all 8 bits available to the 
programmer* so that Qrd(Char) has the subrange (—128..127). 
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6.5 Standard type Tent 

The standard type Text is a file type with components of type 
Char* with the characters masked to the 7-bit ASCII set* and 
skipping the null (0) character. On RSX systems* the standard 
function EolnO is set by the end of a file recordl on RSTS/E and 
RT11 systems by the LF CIO) or ESC (27) character cades. 

The standard procedures ReadO* ReadlnO* WriteO* WritelnO* and 
the standard function EolnO are applicable only to Text files. 
The Seek() procedure is not recommended for use with Text files. 


6.6 SET types 

OMSI Pascal-1 limits sets to a maximum of 64 elements. The 64 
element maximum forms a subrange which is not required to have a 
lower bound of zero* but may instead be positioned at any 64 
element (or smaller) subrange of a base type (for example* 
100..150* -25..25). 

A set of the standard type Char is equivalent to the set of 
Chr(32)..Chr(95)» which is a subset of ASCII containing the upper 
case letters* digits* punctuation symbols* and the space 
character* but lacking the control characters and lower case 
letters. 


6.7 New( ) and Dispose*. > procedures 

In allocating storage for variant records* the New() procedure 
will allocate memory for the largest variant! any tag field 
values specified to NewO and DisposeO are ignored. 

Storage must be explicitly released with DisposeO — no automatic 
garbage collection is performed. Storage occupied by variables 
passed to DisposeO is reclaimed for use by the NewO procedure. 
Dangling pointer references are not detected. 


6.8 Procedural Parameters 

The passing of PROCEDURE and FUNCTION parameters is supported by 
OMSI Pascal-1 with the syntax described in the Pascal User Manual 
and Report (the proposed ISO Standard differs in this area). 

Predefined procedures and functions are not permitted as 
procedural parameters. This can be bypassed by declaring a second 
procedure which calls the standard procedure* and which can itself 
be used as a procedural parameter. 
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Examplei 

function Sine(X* Real)* Real! 
begin 

Sine** SinCX) 
end I 


6.9 Implementation Limitations 

The PDP-11 has six general purpose registers. In OMSI Pascal-l» 
one register CR5) is always allocated for access to global 
variables* and another CR4) is allocated in some blocks for access 
to intermediate level variables. The remaining registers are used 
for integer calculations» address computations* and WITH statement 
variable access. Each WITH statement uses one register for the 
duration of the enclosed statement. This implies a maximum 
nesting of WITH statments of three levels. Complex expression 
calculations can also exceed the available registers. If the Out 
of registers* error occurs* remove a WITH statement or simplify 
the indicated expression by calculating intermediate results. 

The syntactic nesting of procedures is limited to a depth of 10 
levels. There is no implementation restriction on the actual 
depth of recursion of a program* although unlimited recursion will 
eventually cause the program to exceed available memory. 


6.10 Error Detect ion 


OMSI Pascal-1 does not detect the following runtime errors* 

Uninitialized variables 
Subrange bounds exceeded 
Integer overflow 
Real underflow 
Record variant mismatch 
Dereference of NIL pointer 

The following runtime errors are detected* 

Stack overflow 
Heap overflow 
Real overflow 

Integer multiply/divide overflow 
Array bounds exceeded 

DisposeO of NIL or duplicate pointer 
Incorrect numeric format 
I/O errors 
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Predefined Identifiers 

Constants 

False«True 
Maxint 

Types 

Boolean 
Char 
Integer 
Real 
Text 

Variables 

Input* Output 

Functions 

Abs 

Arctan 
Chr 
Cos 
Eof 
Eoln 
Exp 
ExplO 
Ln 
Log 
Odd 
Ord 
Pred 
Round 
Sin 
Sqr 
Sqrt 
Succ 
T rune 
Time 

Procedures 

Break 
Close 
Dispose 
Get 
New 
Page 
Put 
Reset 
Rewrite 
Read 
Readln 

Seek Direct access I/O 

Write 


Base 10 Exponential 
Base 10 Logarithm 

Time of day 

Transmit buffered output 
Close file 
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Table B: Reserved Words 


And 

Array 

Begin 

Case 

Const 

Div 

Do 

Downto 

Else 

End 

Exit * 
External * 
File 
For 

Fortran * 

Forward 

Function 

Goto 

If 

In 

Label 

Mod 

Nil 

Not 

Of 

Or 

Origin * 

Packed 

Procedu re 

Prog ram 

Record 

Repeat 

Set 

Then 

To 

Type 
Until 
Va r 
While 
With 


Reserved Words 
(* extensions) 
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